DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DDDDDDDD BBBBBBBB GGGGGGGG AAAAAA DODODDDD DODDDDDD EEEEEEEEEE Xxx XX PPPPPPPP 

DDDDDDDD 688688888 GGGGGGGG AAAAAA DODDDDDD DODDDDDD EEEEEEEEEE Xxx XX PPPPPPPP 

DD DD 6B BB GG AA AA 0D DD OD DD EE XX XX PP PP 

DD DD 8B BB GG AA AA 0D DD DD DD EE ix XX PP PP 

dD DD 88 BB GG AA AA DD DD OD DD EE XX XX PP PP 

oD DD 8B BB GG Ab AA 0D DD ODD DD EE XX XX PP 

DD DD 88888888 GG AA AA DD DD DD DD EEEEEEEE XX PPPPPPPP 

DD DD 88888888 GG AA AA 0D DD DD DD EEEEEEEE XX PPPPPPPP 

DD DD 8B BB GG GGGGGG AAAAAAAAAA DD DD ODD DD EE XX = XX PP 

oD DD 88 BB GG GGGGGG AAAAAAAAAA DD DD DD DD EE XX = XX PP 

dD DD 8B BB GG GG AA AA 0D DD dD DD EE XX XX PP eeee 
0D DD 8B BB GG ob AA 0D DD DD DD EE XX XX PP eee 
DDDDDDDD BBBBB8B8 GGGGGG AA AA DDDDDDDD DODDDDDD EEEEEEEEEE xXx XX PP cece 
DDDDDDDD BBBBBBBB GGGGGG AA AA DDODDDDD DDDDDDDD EEEEEEEEEE xXx XX PP cove 
LL IIII11 SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] Ss 

LL I] SS 

LL I] Ss 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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MODULE DBGADDEXP (IDENT = ‘V04-000') = 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
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® 
® 
oF 
® 
® 
® 
® 
ie TRANSFERRED. . 
7 
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® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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WN "OOOO VUEWN “OC OONO VE W"OOOVNOU Fw 


MODULE FUNCTION 
This module contains the Address Expression Interpreter. 


09 
00 '@ AND 
ee ~ CORPORATION. 
00 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
09 i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
09 Sooner ita aiden that ein taenatenaiaie 
oo WRITTEN BY 
+ Rich Title August, 1982 
00 
00 
00 


REQUIRE "SRC$:DBGPROLOG.REQ'; 


FORWARD ROUTINE 
DBGSEVAL_ADDR_OPERATOR, 


Evaluate an Address Expr. operator 
DBGSPRIM_TO_ADDR, 


Convert or seery Descriptor to 
Value Descriptor containing 
address of descriptor. 


DETERMINE TYPE: NOVALUE, Determine type of inputs 


GET_DEREF ERENCE; Perform dereference operation 
or. 

DBGSGL_DFLTTYP ! Holds type from SET TYPE command 

DBGSGW-DFLTLENG: WORD i Holds Length from SET TYPE command 

DBGSREG_VALUES: VECTORC,LONG); i Register save area 


EXTERNAL ROUTINE 
DBGSBUILD_PRIMARY SUBNODE: NOVALUE, ! 
DBGSCONV_TEXT_VALOE, ' Convert text string to value 
DBGSINS_BECODE ' Decode instruction 
DBGSMAKE VAL_DESC, Materialize value wate Val Descr 
: i 
' 


0908 SN NNN NNO 
SPAS ESsaNeoRAN=SSS 


' Build a prisery Subnode 
r 


DBGSMAKE-VMS_DESC, Convert Primary Descriptor to 
VAX standard descriptor 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 ' 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 ' Build skeleton descriptor 


I ee SSeS 
NONE WR 0 OONOUEWN OO OONOuU 
eoosoesssssssssssssssessess 
ee ee ee ed ed ed ed ed ed ed od od 


> “J 
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DBGSMAKE _SKELETON_DESC, 


NASSRISAR OWL OSLO RAR CO 


a a ot a a td et 


DBGSNCOPY DESC. 
DBGSPRIM_TO_VAL, 


DBGSSTA_SYMNAME : NOVALUE, 
DBGSSTA_SYM_IS ELirtRAts 


DBGSSTA_TYPEF CODE 


DBGSSTA-TYP_TYPEDPTR: NOVALUE; 
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14 

! Copy descriptors 
i Convert yf beet Descriptor to 
i Value Descriptor. 

i Obtain name of symbol from SYMID 

i Determine whether a symid represents 
i a literal value. 

i Find fcode 

! Look up typed pointer 


! Define some codes for the kinds of addresses that a descriptor 


: can represent. 
LITERAL 


ADDRSK_BITFIELD = 5, 
ADDRSK_MAXTYPE = 5; 


Unknown type 

Minimum of known type codes below 
Literal value 

Primary Sescrtoter 

Address of n+ tg 

Address of dat 

Bit field within address 

Maximum of codes above 


- | 
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GLOBAL ROUTINE DBGSEVAL_ADDR_OPERATOR(OPERATOR, LEFT_ARG, RIGHT_ARG) = 


' FUNCTION 

: This routine does the actual evaluation of a DEBUG Address Expression 
operator. It does a CASE on the operator code and does the operear jete 

address computation or other operation for those operators allowed in 

DEBUG A ereee Expressions. For any operator not allowed in an Address 

Expression, it signals an error message. 


INPUTS 
OPERATOR = The Operator Token Entry for the operator to be evaluated. 


LEFT_ARG = A pointer to the left argument Primary Descriptor or Value 
Descriptor. If the operator is a unary operator, LEFT_ARG 
points to the operator's one argument. 


RIGHT_ARG = A pointer to the right argument Primary Descriptor or Value 
Reser peer, If the operator is a unary operator, RIGHT_ARG 
S$ not used. 


OUTPUTS 
A pointer to the Value Descriptor or Primary Descriptor 
which results from the evaluation of 
the operator is returned as this routine's result. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
OPERATOR: REF TOKENSENTRY, ' Token Entry for operator to perform 


LEFT ARG: REF DBGSVALDESC ' Left operand Token Entry 
RIGHT_ARG: REF DBGSVALDESC; i Right operand Token Entry 


LOCAL 
BINARY_FLAG, 


LEFT_TYPE, 


TRUE if the Address Expression Operator 
s a binary operator 
Address type of left operand (one of 


Eat kek al et et ek 


the above codes 
The opcode of the Address Expression Operator 
adéress type of right operand (one 


OPCODE 
RIGHT_TYPE; 
of the above codes. 


! The fot lowing macro containing the processing that is done on 
' the ADD and SUBTRAC n 

' except for occurences of either a 5 

it was separated out as a macro. 


MACRO PROCESS_ADD_OR_SUBTRACT (OP) = 
CASE -LEFT_TYPE FROM ADDRSK_MINTYPE TO ADDRSK_MAXTYPE OF 


g is the same 


-"". For that reason, 


T operators. This process 
+ or a 


PAGANINI 
SHGSEAFENIS SOS ARUN LS SONEARGN LS SS 


Left argument is a Primary Descriptor. 
CADDRSK_PRIMARY) : 
BEGIN 


SOOOSOSOSOSOSOOSOSOSOOSSSOSOCSOOOOOSSOSOSOOCOOSCOSCSOOOOO OOOO OOOOOOOOOOOOOOoOO 
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SERFUNLSVRVRARANLSSHVSARAWVISSRIEARAWV SSS WS AR oo oO Ooo wom 
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! For pth right args. we need to conver 
! the Primary Descriptor to Value Descr 
do any operation. 


DBGSPRIM_TO_VAL (.LEFT_ARG, DBGSK_V_VALUE_DESC, LEFT_ARG); 
RETURN DBGSEVAL_ADDR_OPERATOR ( 


lover before we 


“OPERATOR, 
“LEFT_ARG 
SRIGHT_ARG ); 
END; 
CADDRSK LITERAL) : 
BEGIN 


VIEWS OOONOUS WO 


IF .RIGHT_TYPE EQL ADDRSK_PRIMARY 
THEN 


co~ 


BEGIN 
DBGSPRIM_ TO VAL (.RIGHT ARG, DBGSK_V_VALUE_DESC, RIGHT_ARG); 
RETURN DBGSEVAL ADDR_OPERATOR ( 


“LEFT_ARG 
;RIGHT_ARG); 


WESREN—S Seek 


' For all other rigne operands, just add the Literal 
' value to the right operand, and return the creme 
' operand. Thus the result retains the type of the 
: right operand. 


RIGHT_ARG COBG$L_VALUE_POINTER] = 
.CEFT_ARG COBG$L_VALUE_ POINTER] OP 
eRIGHT_ARG COBGSC_VALUE_POINTER); 
Handle result type of instruction. 
if .RIGHT_TYPE EQL ADDRSK_INST 
RIGHT_ARGCDBG$W_VALUE_LENGTH] = 
DBGSINS_DECODE(.RTGHT ARGLDBGSL_VALUE POINTER], 
.RIGHT_ARGCDBGSL_VALUE_POINTER); 
: Handle bitfields on the right. 


IF .RIGHT_TYPE EQL ADDRSK_BITFIELD 
THEN 


PAGANINI BEEP LLP EE 


W.A. AAA. AAAI AAI AAI AI AI nnn 
SOOOOCOCOCOOCOOUOW 


1000909 08 INI NNNSININNNSIO OOOO 


BEGIN 

RIGHT_ARG roech. VALUE_POS) = 
-CEFT_ARG PaCS, VALUE _POS) OP 

-RIGHT_ARG COBGSC_VALUE_POS); 

Normalize the bit offset. 


RIGHT_ARG CDBG, VALUE POINTER) = 
-RIGHT_ARG COBGSL_QALUE_POINTER) + 


a a ed a dd 
creer eer EEE EERE REE EEE EEE EEE ERERERE EERE REY EEK EERE EE EE ES FS I 
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Be Se Ge Se Se Se Ge Se Se Se Se Ge Se Se Ge Ge Se Fe Ge Ge Se Fe Ge Ge Ge Fe Ge Ge Ge Ge FH Ss Se Ge Ge Se Ge Fe Se Se Fe Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Se Se ee 
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WWAAA AAA 
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sRIGHT ARG COBGSL VALUE -POss / 8; 
E_Posj”= 


RIGHT_ARG COBGS$L_VALU 
0: ts E5BG$L. VALUE _POs? MOD 8; 


Ol igsnze V4.0-74 | 
SRC JDBGADDEXP.832;1 (2). 


RETURN .RIGHT_ARG; 
END; 

CADDRSK_INST, ADDRSK_DATA) : 
BEGIN 


! Instruction OP Primary 
Convert the Primary and try again. 


SIF ARBWUO OSS LE 


RIGHT_ARG CDBGSL_V 
RIGHT_ARG EB 


ALUE _P = 
: G$L_VALUE_POS] MOD 8; 
— -RIGHT_ARG; 


Www 
soon 


09 4 IF_.RIGHT_TYPE EQL ADDRSK_PRIMARY 
10 THEN 
11 4 BEGIN | 
1g 34 DBGSPRIM_TO VAL (.RIGHT_ARG, DBGSK_V_VALUE_DESC, RIGHT_ARG); 
1 z RETURN DBGSEVAL_ADDR_OPERATOR ( 
14 4 -OPERATOR, 
15 34 .LEFT_ARG 
16 4 ~RIGHT_ARG) ; | 
13 g , | 
19 3 ! If the right arg is a bitfield, retain the type 
sso ; : of the right arg. 
232 3 IF .RIGHT_TYPE EQL ADDRSK_BITFIELD 
$$ 3 THEN 
4 3 BEGIN 
225 35 RIGHT_ARG CDOBGS$L_VALUE_POINTER) = 
226 35 -CEFT_ ARG (CBBG$L_VALUE_POINTER] OP 
$i 35 -RIGHT_ARG CDBG$L-VALUE_POINTER); 
28 36 RIGHT_ARG [CDBG$L_VALUE_POS]"= 
$03 36 -CEFT_ARG COBG$L_VALUE_POS) OP 
$30 M4 -RIGHT_ARG COBGSC_VALUE_POS); | 
20 $0 Normalize the bit offset. | 
$3 36 RIGHT_ARG CDOBGSL_VALUE_POINTER] = 
35 -RIGHT_ARG COBGSL_JALUE_POINTER) + | 
36 RIGHT-ARG CDBGSL-VALUE_POS) / 8; 
| 


SN NNO O rash ab ah sh abe al - FWAWNINANNwinonorn 
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Add the addresses. | 


LEFT_ARG COBGS$L_VALUE_POINTER) = 
“LEFT_ARG DBGSL VALUE POINTER] op 
-RIGHT_ARG COBGSL "VALUE ~POINTER); 


WAN 
~ 


! If we are retaining instruction type then 
! fill in the Length correctly. 


' 
' 
' 
iF .RIGHT_TYPE EQL ADDRSK_LITERAL 


<oQ 
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GIN 
4 LEFT_TYPE EQL ADDRSK_INST 
6 LEFT_ARGCOBG$W_VALUE_LENGTH) = 
BBGSINS_DECODE(.CEFT_ARGCDBG$L_VALUE_POINTER], 
5 9 FALSE, FALSE) = 
5 .LEFT_ARGCOBGSL_VALUE_POINTERJ; 
60 END 


! If we are not adding a literal value, zero out 
' the type information. This reflects the fact 
! that in expressions such as EX INST OP DATA, 
! the address being examined is of unknown type. 


LSE 
DBG$B_DHDR_KIND] = RSTSK_DATA; 
CODE] = RSTS$R_TYPE_DESCR; 
OVERRIDE) = TROE; 


0 
RG COBGSB = .DBGSGL_DFLTTYP; 
BBGSGL_DFLTTYP EQC DSC$K_DTYPE_Z1 


LEFT ARGCOBG$W_ VALUE LENGTH] = 
BBGSINS_DETODE( .CEFT PRS TPS TE VALUE POINTERS. 


FALSE, FAL 
a .LEFT_ARGCOBGSL_VALUE. POINTER) 
p LEP T-ARG COBG$W_VALUE_LENGTH] = .DBGSGW_DFLTLENG: 


AAO 
at 


ot tet Pe PN RP AH 8 
WN "SO OOnNOuUS WN —O0eOn 


PREP RRRER 
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Return the left argument. 
RETURN .LEFT_ARG; 
END; 
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CADDRS$K_BITFIELD) : 
BEGIN 
! Bitfield OP Primary. 
Convert the Primary and try again. 
if .RIGHT_TYPE EQL ADDRSK_PRIMARY 
THEN gin 
DBGSPRIM_TO_VAL (.RIGHT_ARG, DBGSK_V_VALUE_DESC, RIGHT_ARG); 
RETURN DBGSEVAL ADDR_OPERATOR ( 
OPERATOR, 
oLEFT_ARG 
-RIGHT_ARG); 
END; 
In other cases, add the addresses. 
LEFT_ARG CDBGSL_VALUE_POINTER] = 


ODONOW 
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LEFT_ARG PRBS VALUE POINTER oP 
RIGHT ans DBGSL_VALUE_POINTER); 
ARG (O86 VALUE-POS) = 
LEFT_ARG eG £ QVALUE_POS] OP 
-RIGHT_ARG COBGSC_VALUE_POS); 


} Normalize the bit offset. 
LEFT_ARG COBG$L_VALUE_POINTER] 
LEFT_ARG 


LEFT 


, ARG COBGSL_VALUE_POINTER] + 
bEFT ARG CDBGSL-VALUE_POS] / 8; 
LEFT_ARG (CDBGSL VALUE POS) = 

-LEFT_ARG COBGSL_VALUE_POS] MOD 8; 


RETURN .LEFT_ARG; 
END; 
TES %; 
! Multiply and divide are similar to add and subtract except that 


we never try to retain a Primary for symbolization purposes. 
MACRO PROCESS_MULTIPLY_OR_DIVIDE (OP) = 
BEGIN 


Handle the case where the left arg is a Primary. 
if .LEFT_TYPE EQL ADDRSK_PRIMARY 
THEN 
BEGIN 
! For all right args, we need to convert 
! the Primary Descriptor to Value Descriptor before we 
do any operation. 
DBGSPRIM_TO_VAL (.LEFT_ARG, DBG$K_V_VALUE_DESC, LEFT_ARG); 
RETURN DBGSEVAL_ADDR_OPERATOR ( 
-OPERATOR, 
-LEFT_ARG 


;RIGHT_ARG ); 
END; 


: Handle the case where the right arg is a Primary. 
iF .RIGHT_TYPE EQL ADDRSK_PRIMARY 
THEN 

BEGIN 


Convert the Primary and try again. 


DBGSPRIM_TO VAL (.RIGHT ARG, DBGSK_V_VALUE_DESC, RIGHT_ARG); 
RETURN DBGSEVAL_ADDR OPERATOR ( 


“LEFT_ARG 
-RIGHT_ARG); 
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984 6: DEBUG. SRC JDBGADDEXP. b3 31 
3 M 049 END; 
$ * 38 
3 La) ! Neither org ‘s a Primary. 
; . 1 Multiply the oddresses. "tero out the bit offset. 
3 ™ : LEFT ARG COBGSL_VALUE POINTER) = 
; il -LEFT_ARG (DBGS$L_VALUE “POINTERS oP 
; . 2 5 RIGHT NARG DBGSL_VALUE_POINTER 
: M 23 ! Zero out the bit offset. Change the type to 
3 . 208 unknown and return the Left t arg. 
; i. 0816 Lert ~ARG DBGSV_ ao LATERAL = FALSE; 
; 379 m 0511 LEFT_ARG [DBGSL_V 
; 380 “ Ot¢ LEFT ARG DBESB-DADR- RIND = RSTSK_D 
3; we m 051 LEFT DBGSB_DHDR_FCODE) = RSTSR bape DESCR; 
3 He m 0514 LEFT “ARG DBGS$V_DHDR- OV ER RIDE €] 5 TROE; 
; m 0515 LEFT. ~ARG DBG$B =VALUE.¢ Lass) = 
: «384 m 8218 ge DBG$B- VALUE “5H PE) = “FacscL _DFLTTYP; 
>; 385 m 051 ‘pacscc OFLTTYP. EQC DSCSK _bTY PE_ZI1 
> 386 m 0518 THEN 
: 387 m 0519 LEFT_ARGCDBG$W_VALUE_LENGTH] = 
; 388 m 0520 BBGSINS_DETODE(. cert ARGEDBGSL VALUE _POINTER]), 
; 389 m 0521 FALSE, FALSE) 
; be . 82 ¢ -LEF T_ARGCDBGSL_VALUE * POINTER] 
; +4 M 0524 LEFT_ARG CDBGSW_VALUE_LENGTH] = .DBGSGW_DFLTLENG; 
: 39 m 0525 RETURN .CEFT_ARG; 
; 394 0526 END %; 
; 395 0527 
; 396 0528 
: 397 0529 ! Get the opcode and set the by saying whether we are processing 
; 398 0530 ! a binary operator. Also initialize the left and right type codes 
; 399 0531 ' to unknown. 
; 400 05 $ : 
: 401 05 OPCODE : -OPERATOR oo CODE); 
: 40 0534 BINARY_FLAG = .OPCOD L TOKENSK_ADD 
; 40 bese OR SPL ODE Eat TOKENSK~ SUBTRACT 
3: 404 5 6 OR .OPCODE EQL TOKENSK~ MULTIPLY 
; 405 05 OR .OPCODE EQL TOKENSK_DIVIDE; 
; 406 0538 
3; 407 0539 
; 4608 0540 ' Call ee. routine which fills in the codes for LEFT_TYPE and 
; 409 bees ' RIGHT . If an unconverted value needs to be converted, 
: 610 206 ! this Four ne constructs a new descriptor and the LEFT_ARG and 
: 411 054 ' RIGHT_ARG pointers may be modified to point to these few 
: $ig 3268 descriptors. 
: 414 268 DETERMINE TYPE (.LEFT ARG, LEFT_ARG, LEFT_TYPE); 
> 415 54 7 « RY_FLAG 
: re 8 T 
$ ete 20) DETERMINE_TYPE (.RIGHT_ARG, RIGHT_ARG, RIGHT_TYPE); 
3 th 0381 : Select the operation to perform based on the operation code. 
; a3 0358 PARE SPERATER CTOKENSW_CODE] FROM TOKENSK_MIN_OPERATOR TO TOKENSK_MAX_OPERATOR OF 
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: Change the descriptor back to a Volatile Value Descriptor. 


> 423 5 

; 2 ¢ § } Do the identity operation. 

3 496 2 CTOKENSK_IDENTITY): 

3 6 8 60 RETURN .LEFT_ARG; 

3 : $1 END; 

3 : 1 568 Do the indirection (dereferencing) operation. 

3 4 ee CTOKENSK INDIRECT]: 

> 435 268 

* 069 BUT ROBER; 

: 4 570 ; 

; 439 0371 LOCAL 

3; 440 276 ADDRESS, ! Address which is value of left arg 
: rk bet? LENGTH; ! Bit length given in left arg. 
: 44 0575 ' Prim iptors. 

ite 0876 rimary Descriptors 

: 445 057 IF .LEFT_TYPE EQL ADDRSK_PRIMARY 

> 446 0578 THEN 

| BBS st 

> 449 036) 4 LANG 

: 430 O96e 4 VMS_DESC: DBGSSTG_DESC; 

: $26 0584 4 ! If we can dereference a typed pointer, and return 

; 45 0585 4 ! a Primary representing the pointed-to object, 

3; 454 0586 4 ' then do so. 

: tee it 4 if GET_DEREFERENCE(.LEF T_ARG) 

> 457 0589 4 - oT a 

3 438 9390 é RETURN .LEFT_ARG; 

> 460 999¢ 4 ' Use MAKE_VMS_DESC and MAKE_VAL_DESC to do the fetch. 
; ret: S202 ? Preserve the language code. 

; 183 0595 4 ANG = .LEFT_ARGCOBGSB_DHDR_LANG); 

3; 464 Sage 4 DBGSMAKE_VMS-DESC (.LEFT_ARG, VMS_DESC); 

: 465 0597 4 LEFT_ARG = DBGSMAKE_VAL Best (VMS"DESC, DBGSK_VALUE_DESC); 
; 466 398 4 LEFTARGCDBGS$B_DHDR-LANG) = .LANG; 

FY 4 

: 

3 470 0608 4 LEFT_ARGCDBG$B_DHDR_ TYPE] = DBGSK V_VALUE_DESC; 

; 471 03 4 LEFT-ARGCDBGS$L-VALUE_POINTER] = .CEFT ARGCDBGSL_VALUE_VALUEO); 
: rt! Be ? IF -CEFT_ARG DBG$B_VALUE_CLASS) EQL DSC$K_CLASS_UBS 

; 47 ‘ LEFT_ARGCDBGSL_VALUE_POS] = .LEFT_ARGCDBGSL_VALUE_VALUE1); 
; $2 ‘4 ? Do a special case check for ‘’.PC"’ 

: 478 10 4 if -VMS_DESCCDSCSA_POINTER] EQLA DBGSREG_VALUES(15] 

: 479 i 4 THEN 
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} For bitfields, do the bit selection. 


ooo 
wr 


if, tEFT_TYPE EQL ADDRSK_BITFIELD | 


o 
xP 1-se -1984 23:49: AX-11 Bliss-32 v4.0-74 Pa 10. 
vee 12-80 8-198e 43:75:49 DEBUG. SRC IDBGADDEXP.83 31 - (2). 
; : ‘ 1 BEGIN 
¢ ¢ 13 } Change dtype to instruction. 
4 18 LEFT_ARG DBGSB_VALUE_CLASS] = DSCSK_CLASS_S; 
485 1 LEFT-ARGLDBG$B_VALUEDTYPE] = DSCSK-DTYPE_ZI; 
4 Hs LEFT_ARGLOBG$W_ VALUE LENGTH] = 
4 1 BBGSINS_DECODE(.CEFT ARGCOBGSL_VALUE_POINTER), 
4 0 7 FALSE, FALSE) = 
$33 1 -LEFT_ARGCOBGSL_VALUE_POINTER]; 
491 5 RETURN .LEFT_ARG; 
‘3 06 : END; 
494 $ ! Check that we have read access to the address 
ree i given in the value descriptor. 
43 +4 4 if NOT PROBER (ZREF(O), ZREF(1), .LEFT_ARGCDBGSL_VALUE_POINTER]) 
$35 Be 1 SIGNAL (DBG$_NOACCESSR, 1, .LEFT_ARGCDBGS$L_VALUE_POINTER]); 
o688 
0634 
ie 
06 
aes 
06 
06 
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; 
504 a 
205 f BEGIN 
rs 44 Seze : Do additional checking for Length <= 32 bits. 
509 0641 LENGTH = .LEFT_ARG COBGS$W_VALUE_LENGTH); | 
510 O6eg IF .LENGTH LSS 
211 0643 OR ,LeNcTH GTR 32 | 
318 O65 SIGNAL (DBG$_ILLSIZFLD, 1, .LENGTH); | 
gi2 O64? : Also check for read access to top of range. 
219 0649 ADDRESS = -LEFT_ARGCOBGSL_VALUE POINTER] + 
518 0650 (. LEFT~ARG DBGSL VALUE-POS] + .LENGTH = 1) / 8; 
319 9651 IF NOT PROBER (ZREF(O), ZREF(1)> ADDRESS) 
521 0638 SIGNAL (DBGS_NOACCESSR, 1, .ADDRESS); 
; 5 2 : Do the bit selection. 
525 A] LEFT_ARG CDBG$L_VALUE POINTER] = 
3 6 38 TIF .LEFT_ARG [DeGSB_VALUE_DrvPE EQL DSC$K_DTYPE_Sv 

r 5 OR jLEFTIARG DBGSB-VALUE_DTYPE) EQL DSCSK"DTYPE-SvU 
: 9 Osée .(.LEFT_ARG COBGS$L_VALUE_ POINTER?) < 
5 ¢ TLEFT_ARG COBGSL_QVALUF POS) 
38 ;LEFTIARG DBG$W"VAL'  ~LENGTH), 

5 ELSE 

534 .(.LEFT_ARG COBGS VALUE POINTER) < 
23 TLEFT_ARG COBGS$L_QALUE_POS 
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0>); 
END 


ELSE 
} For other left args, just do the indirection. 
LEFT_ARG CDBGSL_VALUE_POINTER] = ..LEFT_ARG CDBGSL_VALUE_POINTER); 


Change the type to unknown and return the argument. 
LEFT_ARG [DBG$V_DHDR_LITERAL] = FALSE; 

LEFT-ARG [DBGSB~DHDR “KIND = RST$K_DATA: 

LEFT“ARG DBGSB-DHOR™ ODE) = RSTSR TYPE _DESCR; 
LEFT-ARG CDBG$V~DHDR- bye ORRIDE €) = TROE; 

LEFT_ARG (DBG$B_VALUE_CLASS) = 0; 

LEFT“ARG CDBG$B~ VALUE “D TYPE = .bBGSGL_DFLTTYP; 

IF BocScL. DFLTTYP EQC DSCSK_OTYPE_Z1 


LEFT_ARGCDBG$W_VALUE_LENGTH] = 
BBGSINS_DECODE( .CEFT ARGLDEGSL_ VALUE_POINTER], 


FALS L 
-LEFT_ARGCDBGSL_VALUE_POINTER] 


LEFT_ARG CDBG$W_VALUE LENGTH) = -DBGSGW_DFLTLENG; 
LEFT_AR A ppectt VALOE_POS] = 
RETURN .LE -LEFT_ARG; 


! Do the add operation. 
tTOKENSK ADD): 
PROCESS_ADD_OR_SUBTRACT (+); 
Do the subtract operation. 
LTOKENSK SUBTRACT]: 
PROCESS_ADD_OR_SUBTRACT (-); 
Do the unary plus operation. 
iTOKENSK UNARY_PLUS]: 
RETURN .LEFT_ARG; 
} Do the unary minus operation (i.e., negation). 
CTOKENSK_UNARY_MINUS): 
BEGIN 


First convert Primary Descriptors to Value Descriptors. 


IF _ .LEFT_TYPE EQL ADDRSK_PRIMARY 
THEN 
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3 
14.52 1984 23:49: 
12-808-198e 93:78:39 
DBGSPRiM_TO_VAL (.LEFT_ARG, DBGSK_V_VALUE_DESC, LEFT_ARG); 
: Negate the address. 


LEFT_ARG (DBGSL_VALUE_POINTER] = = .LEFT_ARG CDBGSL_VALUE_POINTER); 


LEFTLARG CDBGSL_VALUE_POS) = = .LEFT_ARG COBGSL_VALOE_POS7; 
} Normalize the address. 


-LEFT-ARG CDBGSL°VALUE_POS) / 8; 
LEFT_ARG CoBGS, VALUE POS]“= 

~LEFT_ARG CBOBG$L_VALUE_POS] MOD 8; 
: Handle result type of instruction. 
if -LEFT_TYPE EQL ADDRSK_INST 


LEFT_ARGCDBG$W_VALUE_LENGTH) = 
DBGSINS_BECODE(.LEFT ARGCDBGSL _VALUE_POINTER], 


ALSE, 
-LEFT_ARGCOBGSL_VALUE _POINTER]); 


! Return the result. 
Se -LEFT_ARG; 


Do the multiply operation. 


CTOKENSK_MULTIPLY): 
PROCESS_MULTIPLY_OR_DIVIDE (*); 


Do the divide operation. 
CTOKENSK_DIVIDE): 
PROCESS_MULTIPLY_OR_DIVIDE (/); 
: Do the bit-selection operation, i.e. X<pos,size,ext>. 
CTOKENSK BITSELECT): 
BEGIN 
LOCAL 
ADDR_INCREMENT, 
B1T_OFFSET, ' New bit offset from byte address 
DTYPE, ! New dtype 


Convert Primaries to Value Descriptors 
if .LEFT_ARG CDBGSB_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC 
DBGSPRIM_TO_VAL (.LEFT_ARG, DBGSK_V_VALUE_DESC, LEFT_ARG); 


' Increment to be added to byte address 
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lee 
} Handle value descriptors. 


Uw 


Clear the Literal flag = the result is of type bitfield. 
LEFT_ARG CDBGSV_DHDR_LITERAL] = FALSE; 

} Add the bit offsets. 

NA LEFT ARGCDBGSB_VALUE CLASS] EQL DSCSK_CLASS_UBS 


POS = .LEFT_ARG CDBGSL_VALUE_POS) 
ELSE 


POS = 0; 
BIT_OFFSET = .POS + .OPERATOR CTOKENSW_BIT_OFFSETI; 


SNS 


7 
238 sts : Compute the new byte address. 
670 08 LEFT ARG CDBGSL_VALUE_POINTER] = .LEFT_ARG CDBGSL_VALUE_POINTER] + 
of) ert -BIT_OFFSET / 8; 
or? Bane ompute the bit offset. From it and the sign extension bit, 


 C¢ 
determine the new class and dtype. 
BIT 
I 
T 


1 F 
i 
LEFT_ARG [DBGS$B_VALUE_DTYPE] = 

LEFT-ARG CDBGSW-VALUE-LENGTH) = “OPERATOR CTOKENSW_BIT_LENGTH); 
LEFTEARG CDBGSL-VALUE_POS) = .B1T OFFSET; 

END; 


Win 


URN .LEFT_ARG; 


SRBVSARG 
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675 

676 0808 IT_OFFSET = .BIT_OFFSET MOD 8; 

67 080 F [BIT_OFFSET EQC 0 

678 0810 HE 

679 0811 BEGIN 

680 OB1g IF .OPERATOR CTOKENSV_SGNEXT 

681 081 T 

68 0814 DTYPE = DSC$K_DTYPE_SV 

68 0815 ELSE 

684 0816 DTYPE = DSCS$K_DTYPE_V 

685 081 LEFT OARG. CoBGsB “VALUE PCCASS) = DSC$K_CLASS_S; 

686 0818 END 

687 0819 ELSE 

688 0820 

689 08 1 IF .OPERATOR CTOKENSV_SGNEXT) 

691 08 : DTYPE = DSCS$K_DTYPE_SvU 

69¢ 08 4 

69 5 DTY DSCSK_DTYPE_VuU; 

694 8 6 LEFT PARG. CDBGSB_ VALUE_CCASS] = DSCSK_CLASS_UBS; 

695 827 END; 

g36 4 ; ill in the new dtype, bit offset, and length. 
085! 


: nr other code constitutes an error and is signalled, as such. 
e 


! (The operator is not allowed in Address Expressions.) 
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' 
CINRANGE OUTRANGE): 
SIGNAL (DBG$_INVOPADDR, 1, OPERATORCTOKENSB_OPLEN)); 


! We never get here but throw in a return to keep the BLISS 
; compiler appy. 


RETURN 0; 
END; 
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TLE 
ENT | 
| 
TRN DBGSGLDFLITYB, DBGSGW DFLTLENG 
TRN DBGSREG_V DBGSBUTLD_PRIMARY_SUBNODE | 
TRN DBGSCOND TEXT WALUE 
TRN DBGSIN urgent d DBGSMAKE _VAL_DESC | 
IRN DBGSMAK 


DBG E~SKECETON_DESC 
TRN DBGSNCOPY_DESC ODBGSPRIM.TO_VAL 
XTRN DBGSSTA_SYMNAM 
XTRN DBGSSTA_SYM_IS_LITERAL 
EXTRN DBGSSTA_TYPEF CODE 
-EXTRN DBGSSTA_ 1p. TYPEDPTR 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


03FC 00000 ENTRY DBGSEVAL _AD ADDR_OPERATOR, Save R2,R3.R4.R5,- ; 0215 
00000006 00 9€ 9002 MOVAB DBéSPRIR’ " VAL, R9 ; 
99900006 0 9€ 000 VAB OBGS$GW_DFLTCENG. R8 F 
90 90006 9E 9019 MOVAB DBG$GL DFL YP, R : 
9 0000006 9—E 0001 MOVAB LIBSSIGNAL, R ; 
00000006 90 eb o035 HOVA bgGSINS. DECODE, RS ; | 
04 Ac BO 000 MOVL sah R4 ; 0533 | 
2 A 3C 09 ¢ MOVZWL 2(R4), OPCODE ; 
1 D4 00 CLRL ; 0534 | 
D1 9 CMPL SPCODE, #6 : 
2 BNEG «1 : | 
D6 6 INCL = R1 ; | 
3 D4 00039 1$ CLRL = RO : 0535 
D1 3 CMPL GPCODE. a7 3 
12 BNEO $ : 
0g 04 INCL. RO ; 
1 CB 00042 28 BISL2 Ri, RO : 
1 04 4 CLRL 1 : 0536 | 
D1 004 CMPL QPCODE. 4a : | 
0 A BNEO 5 : | 
D 4C INCL. RI : | 
20 C8 00 af 3$ BISL2 RO, RI ; | 
0 D4 0005 CLRL = RO ; 0537 
| 
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2 AC DO 00188 128: MOvL FT_ARG 
3 98 he 8 1 MOVL 5 (R2), “Wee 
01 § 1 PROBER #9 #1. (RS) 
D 194 BNEQ 13$ 
4 DD 196 PUSHL R& 
1 DD 001 PUSHL 
00028228 8F DD 0019A PUSHL 64392 
3 fe 1" CALLS aii eee 
ge D1 OO1A3 13%:  § CMPL tefr _TYPE, # 
A 12 1A NEQ 
53 46 «OA 3¢ 1A MOVZWL 20(R2), LENGTH 
: 1 QiAC BLSS 
20 D1 1Ae CMPL LENGTH, #32 
op 15 18 BLEO $ 
bd 1B3 14$:  PUSHL LENGTH 
1 DD 0018 PUSHL 
00028ED0 f Dp 18? PUSHL ai 7632, + A: 
$8 1C a2 re 0100 15$:  ADDL3 2B(R2), LENG Th, RO 
50 D7 001¢ DECL. RO 
50 08 C6 01C7 DIvL2 #8, 
50 4 ¢ QOICA ADDL2 = RG, ADDR ESS 
01 00 O¢ 01CD PROBER #0, #1, (ADDRESS) 
gp 1 00101 BNEQ. 1 
0 DD 001D3 PUSHL ADDRESS 
or DD 00105 PUSHL 
00028228 8F DD 00107 PUSHL #164392 
66 03 FB 001DD CALLS #3, 18851 GNAL 
29 16 A2 91 OO1E0 16$:  CMPB 22(R2), #41 
06 13 OO1E4 BEQL *'17$ 
2a 16 A2 91 OO1E6 CMPB =«- 22(R2), #42 
09 12 QOTEA BNEQ so 
A2 1¢ Ag EE OOIEC 17$:  EXTV  28(R2), 20(R2), (R4), RO 
07 11 Oo1F BRB 19$ 
A 1C Ag EF OO1FS 18%:  EXTZV 28¢ R2) Z0(R2), (R4), RO 
A 50 00 ore 19$:  MOVL RO, 24(R 
04 11 00 BRB 21$ 
A 64 00 00 02 208: MOVL  (R4), 24(R2) 
A 40 F 8A 00 1$:  BICB2 #64, 4(R2) 
A 060 F 80 0 08 MOVW #1389, 6(R2) 
A 80 «BF 0 1 BISB2 #128, °4(R2) 
5 7 p0 1 MOVL OD 686 DFLTTYP, RO 
A2 B 0021 MOVZBW RO, 22TR2) 
16 1 0021 CMPL RO. #22 
2 BNEG  22§ 
7E 7C 00 CLRQ  =(SP) 
18 Ad DD 4 PUSHL  24(R2) 
5 0 re 7 CALL § #3, DBGSINS -DECODE 
0 18 A As 0 A SUB 4 ine), RO, ~20(R2) 
A2 8 B0 a8: MOVW GSGW_DFLTLENG, 20(R2) 
we. A ps $: CLRL (R2) 
O2AB 31 4$: BRW $ 
08 ac 00 5$: VL —LEFT_ARG, R3 
000A ofs - 44 26% COORD ois. {Pe = © 
OBF 024C¢ 3-388-- 
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14-Sep-1 DEBUG. SRC JDBGADDEXP.B32; 1 
FBSA CF 03 FB 004A1 CALLS #3, DBGSEVAL_ADDR_OPERATOR ; 
04 Ang RET : 
5 08 AC 06 4A7 64%:  MOVL  LEFT_ARG, R2 : 
aC DO 004AB MOV RIGHT_AR RQ : 
18 «OA 1 A c6 GAF pivig 24(ROT, 24(R2) : 
06 =A 40 BF 8A 00484 65S BICB as 4(R2) : 
I¢ A2 D4 00489 CLRL 2 (82) : 
6 A 060 ar : 4BC 66$ MOVW #133 » 6(R2) : 
BE 80 «BF 4C BISB2 #128, °4(R2) : 
5 7 p0 4C MOVL OD 636 DFLTTYP, RO : 
1 A GCA MOVZBW RO, 22TR2) : 
16 D1 004¢ CMPL RO. #22 : 
10 12 0040 BNEG 68$ : 
7E 7C 00403 67$:  CLRQ (SP) : 
18 Ad OD 940 PUSHL  24(R2) : 
65 0 Fe 408 CALL § #3, DBGSINS_DECODE : 
14 A2 50 18 A2 A3 00408 SUBW3 24(R2), RO, 20(R2) : 
04 11 Ode BRB 69$ : 
14 a2 68 80 AE 68$ MOVW DBGSGW_DFLTLENG, 20(R2) : | 
5 b0 Q4E7 69$ MOVL R2, RO : 0770) 
00000079 &F 08 BC 08 10 FD O4EB 70$ CMPZV #16, #8, @LEFT_ARG, #121 : 0779) 
0D O4F BNEQ 71$ : | 
08 AC OF QO4F7 SHAB LEFT_ARG : 0781) 
7E 83 8F 9A OO4FA MOVZBL #1317 =(SP) : 
08 AC DD O04FE PUSHL LEFT ARG ; 
69 03 FB 00501 CALLS #3, BBGSPRIM_TO_VAL : | 
50 08 AC 00 00504 718:  MOVL LEFT_ARG, RO : 0789) 
04 A 40 8F 8A 00508 BICB2 #64,74(RO) F 
5 14 AQ 9E 00500 MOVAB 20(RO), R3 : 0793) 
0D 03 Ad 91 00511 CMPB (R3), #1 : 
06 12 0519 BNEQ 2$ ; 
51 1¢ AO 00 0051 MOVL g8(RO), POS : 0795 
02 11 0051B BRB $ : 
1 p 00510 72$:  CLRL POS : 0797 
52 08 AG OS1F 73$: MOVZWL 8(R4), R2 : 0798 
51 52 C0 00523 ADDL2 2, BIT_OFFSET ; 
52 51 08 C7 00526 DIVLS «#8. gi OFFSET, R2 ; 0803 | 
18 AO § co 052A ADDL2 2. 24(RO) ; 
7E 0 51 01 7A 005 § EMUL #1, BIT_OFFSET, #0, -(SP) : 0808 | 
51 1 Br 08 7B 005 EDIV #8, (SPJ+, BIT_OFFSET, BIT_OFFSET ; 
1 05 005 TSTL gif oF rset ; 0809 | 
12 12 O053A BNEO 6$ : 
05 4 A €1 BBC #10, (R4), 74$ : 0812 
2 9 dO 0054 MOVL #41, DTYPE ; 0814 | 
3 11 0054 BRB 15$ ; 
5 1 p90 45 74$: MOVL #1, pType : 0816. 
03 A 1 48 75$: MOVB #1. 3(R3) ; 0817 
10 11 0054¢ BRB 79§ : 0809 
05 4 A €1 0054E 76$: BBC #10, (R4), 77$ : 08 
2 A BO MOVL #42. DTYPE : 08 
; 1 BRB 78s ; 
4 p 77$: MOVL #34, pType F 08 
03 A p 4 188: MOVE #13. 3(R3) : $ 
2 =A 9 79$:  MOVB  ODTYPE 2(R3) : 0 
6 OA AG B 4 MOV 10(R4S, (R3) : 08 
1¢ =A 51 D 80$:  MOVL BIT_OFFSET, 28(R0) ; 08 
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GLOBAL ROUTINE DBGSPRIM_TO_ADDR (DESC1, DTYPE, DESC2) = 


i FUNCTION 
Converts a Primary Descriptor into a value descriptor containing 
the address of the primary. 


For Primary Descriptors representing data or code, the address is stored 
as a (byte address, git offset) pair in the value field of the 
descriptor. If the given dtype is zero, the dtype is left alone. If the 
user supplied a dtype that he wants the result to be 

new dtype ‘s stuffed in and the class and length f elds are fixed 

up accordingly. 


For shee Descriptors representing Literals, the literal value 
is stored in the value field of the resulting descriptor. The 
dtype information is left alone in this case - it presumably 
describes the type of the literal constant. 


Note that BLISS fields are a special kind of literal. The four 
field values are stored in four longwords in the value field 
of the resulting value descriptor. 
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DESC1 = The address of the Primary Descriptor to be converted. 

DTYP - The desired Btype code of the resulting value descriptor 

DESC - An address in which to leave a pointer to the new value 
descriptor which is constructed. 
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OUTPUTS 
A Value Descriptor is allocated and filled in, and a pointer 
to it is left in DESC2. A status code is returned, which is 


one of: 
STSSK_SUCCESS = Success. 
STS$K_SEVERE - Failure. 


BEGIN 
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MAP 
DESC1: REF DBGSPRIMARY; 
LOCAL 
COUNT 
psTPTR: REF DSTSRECORD, 
RSTPTR: REF RSTSENTRY 


SUBVECTOR: REF VECTOR 
TEMP_DESC: REF DBGSVALDESC; 


Pointer to input primary descriptor 
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For BLISS fields, count of fields 
Pointer to DST record for the primary 
Scratch pointer 
Pointer to RST entry for the primary 
Pointer to vector of field values 
Pointer to a value descriptor 


Check for a volatile value descriptor coning in. In this case 
turn it into an ordinary value descriptor with the ‘address’ in 
the V. Value desc becoming the ‘‘value’ in the ordinary value desc. 
F gDESCICDRGSE_DHOR_ TYPE) EQL DBGSK_V_VALUE_DESC 


BEGIN 


er Te 
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w198¢ f2:18:3% | EDEBuG. SacSbacaobeae.080; 1 peer $3 | 


MAP ' 
pestes REF DBGSVALDESC; | 


1 
, 1 j LOCA 
f ¢ , DUMMY; 
7 1 ' Slightly kludgy solution to an obscure problem: 
785 1 ! If you os str ng of length > 286" and Language is 
7 1 ! set to BLISS or MACRO then you get into this routine 
78 1 ! with a volatile value descriptor representing the string. 
788 1 ! In this case we just want to return the descriptor unchanged: 
789 : do not add the Level of indirection. 
791 iF .DESCICDBGSW_VALUE_LENGTH] GTR 256 
re THEN 


DESC2 = .DESCI; 


BEGIN 
RETURN STSSK_SUCCESS; 
END; 
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| 
! Otherwise, copy the descriptor and make it into an ordinary | 
value descriptor. 


DBGSNCOPY_DESC(.DESC1, TEMP_DESC, DUMMY, FALSE); 
TEMP _DESCEDBGSB_DHDR fYPE] = pBG$x_ VALU DESC: 
TEMP~DESCCDBG$L-VALUE_VALUEO] = .TEMP_DESCCDBGSL_VALUE_POINTER); 
IF «TEMP DESC DBG$B_VALUE_CLASS] EQL BSC$K_CLASS—UBS 


TEMP DESCLDBGSL VALUE_VALUE1] = .TEMP_DESCCDBGSL_VALUE POS); | 
TEMP_DESTCDBGSL_VALOE_POINTER] = TEMP_DESCCDBGS$L_VALOE_VALUEO); 

.DEST2 = . TEMP DESC; 
RETURN STS$K_SOCCESS; 


S 


Check for BLISS field. This is a hack needed to suppors BLISS structure 
references X(fieldname]. Basically, when we parse the ‘‘fieldname”’ 
primary, we are expecting either an offset as in X{0,0,32,0) or a 
fieldname as in X(fieldname). | 
If we get a fieldname, we indicate it by building a special 
kind of value descriptor whose fcode is 
RSTSK_TYPE_BLIFLD, and in the value field we have the four integers 
that the fieldname translates into. 


,Desct COBG$B_DHDR_FCODE] EQL RSTSK_TYPE_BLIFLD 


Te ee ee 


F 
HE 
.DESC1 Coacst DHDR_SYMIDO); 
DSTPTR = .RSTPTR CRSTSC_DSTPTRI; 
poi 
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= .DSTPTRE STS BLIFLD_COMPS); | 
1 + DSTPTRCDSTSB_NAMEJ~+ .DSTPTRCDSTSB_NAME); 


cate the result descriptor now that we know how big 
eeds to be. 
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BGSMAKE SKELETON_DES 


bd pest 
G PNR LANG ° 


ey." COUNT+1)); 


Secs 


G$K 
; ny: “LANG 
1 CoB “KI 
1 “FC 
1 YPE 


ocovc’Jg 


He 
“F CODE ODE ii. 
BGSL~ pe “TYPEID] = .D PEIDS; 
OR = TEMP_DESC COBGSA_VALUE_ 
[0] = .COUNT; 
OM 1 TO .COUNT DO | 


ECTOR c. 3 = ,.PTR; 
-PTR + 


a a ee 
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TEMP DESC CDBGSL VALUE _ POINTER] = TEMP_DESC CDBGSA_VALUE_ADDRESS); 
RETURN STS$K_SOCCESS; 


(09 C9 Cd Cd Cod 09 CD CD CD CD Co: 
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Check for Literal constants. 
if DSGSSTA_SYM_IS_LITERAL (.DESC1 COBGSL_DHDR_SYMIDOJ) 
BEGIN 


es 


se 


3 


! PRIM_TO_VAL does what we want with Literals, so we just 


383332833 


4 
4 
4 
| 
' Fix up the pointer field, fill in the output parameter, and 
return success. | 


| 
£06 H call that routine. 
868 0999 DBGSPRIM_TO_VAL (.DESC1, DBGSK_VALUE _DESC, .DESC2); 
$69 1000 RETURN STSSR_ SUCCESS; 
870 1001 END; 
871 1s | 
a78 100 ' Build a value descriptor of the desired type. 
87 1004 i FILL in the header fields of this | 
are 102 } value descriptor. 
6 1909 TEMP_DESC = DBGSMAKE SKELETON. DESC (DBG$K_VALUE_ DESC 
7 1008 TEMP-DESC CDBG$B_DHDR_L -DESC1 CDBG$B_DADR i | 
78 1009 TEMP_DESC ([OBG$B_DHDR— “KIND -DESC1 COBGSB_ BHR. KIND 
79 1919 TEMP_DESC [OBG$B_DHDR_F CODE) DESC] CDBG$B_D 
oo + 3 TEMP_DESC CDBGSL-DHDR-TYPEID) ° DESC DBGSL- ~DHDR™ =FCODE; 
aee 1018 ! Set up for a call to DBGSMAKE_VMS_DESC. This routine (in DBGVALUES) 
ti 1014 ! converts Primary Descriptors to VAS standard descriptors. Since the 
3 ! value descri CY has a VMS descriptor inside it, we pass this 
Bas ’ 6 ; & to DBG E_VMS_DESC. 
10i8 if wot DBGSMAKE _vas DESC (.DESC1, TEMP_DESCCDBGSA_VALUE_VMSDESC)) 
ase 19 RETURN STSS$K_SEVERE; 
591 19 ¢ Normalize the pointer to include the bit offset. 


»PSECT 


24 47 42 44 SC 50 $ 5 44 44 41 47 42 44 28 iH P.AAA: .ASCII 


6— 75 20 52 44 44 4 


oO 


4 
SF 4F 654 «SF $0 49 52 


65 70 79 7% b i ee 028 ASCII 


14-20-1986 23:49: 
argo 188e F3it6; 


\ Re Ot iene V4.0-74 
DEBUG. SRC IJDBGADDEXP.B32;1 


: 893 19 4 If .TEMP_DESC CDBGSB_VALUE_CLASS] EQL DSCS$K_CLASS_UBS 

: Bos 1358 THEN SE GIN 

; 4 1 § TEMP_DESC COBGSL_VALUE POINTER] = .TEMP_DESC CDBGSL_VALUE_POINTER] + 
; 89 1 8 Tene DESC COBGSL YALUE POS] / ZBPUNIT; 

: 38 ; 4 [ew wes DBGSL_VALUE_POS] = .TEMP_DESC CDBGSL_VALUE_POS] MOD %8PUNIT; 
: 1031 ‘ 

: 901 1 § ! If this routine was passed a nonzero DTYPE, fill in the desired DTYPE. 
; 90 10 ' Also fill in all the related fields. 

; 90 19 : Otherwise, leave it the way we got it from MAKE_VMS_DESC. 

; 308 1 if .DTYPE NEQ 0 

3 28 10 THEN 

; 90 10 : 

; 908 10 ! The only case where we wg in a different dtype is for address 
; 909 1040 ! arithmetic in BLISS. E.g., EVAL FF, without dots, we want to 

; a9 103 treat the address of F as a longword integer. 

: gg 1908 i In this case, the dtype we pass in is L. 

; 91 1044 ' 

; 916 1045 If .DTYPE EQL DSCSK_DTYPE_L 

; 915 1966 THEN 

3 4 104 BEGIN 

7; 91 1048 TEMP_DESC CDBGSB_DHDR_KIND] = RSTSK_DATA; 

; 918 1049 TEMP_DESC [DBG$B_DHDR-FCODE) = RSTSR TYPE_DESCR; 

; 919 1050 TEMP_DESC [DBG$B_VALUE_CLASS) = DSCSR SSS; 

: 920 1051 TEMP_DESC CDBG$B_VALUE_DTYPE] = DSCSR_DTYPE_L; 

3; 921 105¢ TEMP_DESC CDBGSW_VALUE_LENGTH) = 4; 

i.) et m 

; 4 3 1935 We do not currently handle other override dtypes here. 

: 926 1057 ELSE 

4 i 1928 SDBG_ERROR ("DBGADDEXP\DBGSPRIM_TO_ADDR unknown dtype'); 

: 9 1969 : Extract the desired information from the value descriptor. 

: 931 1966 TEMP _DESCEDBGSL_VALUE_VALUEQ = ,TEMP_DESCCOBG$L_VALUE_POINTER]; 

: 336 199 TEMP_DESCCDBGSL_VALUE_VALUE1] = .TEMP_DESCCDBGS$L_VALUE_POS); 

3 934 ides ! Fix up the pointer field, fill in the output parameter, and 

; Bee Hs ¢ return success. 

: 339 1968 TEMP_DESC CDBGSL VALUE_POINTER] = TEMP_DESC CDBGSA_VALUE_ADDRESS); 

; 938 1069 .DE =, DESC; 

: 939 1070 RETURN STS$K_SOCCESS 

3; 9640 1071 END; 


DBGSPLIT,NOWRT, SHR, 


\ (DBGADDEXP\<92>\DBGS$PRIM_TO_ADDR unknow\ 


\n dtype\ 


PIC,0 
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-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OOFC 00 .ENTRY DBGSPRIM_TO_ADDR, Save R2,R3,R4,R5,R6,R7 
7 000000006 99 9E 0000 MOV DBGSMAKE “SKELETON_DESC, R? 
oa move. DESCT. RS 
83 BF 83 A 5 1 CMPB (R3), #131 
4 1 1 BNEQ 
0100 8F 46 OA 8 0 1 CMPW (R3), #256 
oc «BC 3 5 i? mOL” R3, a@DESC2 
013¢ HF 6 3 BRW 14$ 
E b4 00 6 1$ CLRL = = (SP) 
06 AE OF 90 PUSHAB DUMMY 
OC AE 9F 00028 PUSHAB TEMP _DESC 
53 DD 000 PUSHL 
000000006 90 04 FB 000 CALLS #4, DBGSNCOPY_DESC 
0 04 AE DO 000 MOVL TEAP _DESC RO 
92 Ad 7A =BF «(90 00038 MOVB = #122 (RO) 
20 Ad 18 AO D 9040 MOVL 4(RO), 32¢RO) 
0D 17, AO 91 0004 CMPB 3(RO), #13 
05 if 0049 BNEQ 3 
24 a0 1 A p 004 MOVL (RO), 36(RO) 
18 AO 20 AO 9E 00050 2s: MOVAB (RO), 24(RO) 
56 11 0005 BRB x3 
OE 06 Ad 91 90057 3$: CM 6(R3), #14 
5 if 0058 BNEQ 4 
50 0c A3 DO 0005D MOVL 1g(R3) RSTPTR 
50 OC ad 00 90061 MOVL  12(RSTPTR), DSTPTR 
52 03 Ad DO 00065 MOVL S(DSTPTR), COUNT 
51 07 AO 9A 00069 MOVZBL 7(DSTPTR 
56 08 A14 3 006D MOV B(RI)CDSTPTRI, PTR 
7E 52 2 78 00072 ASHL #2, COUNT, (SP) 
6E 4 CO 00076 ADDL2 #4. (SP) 
E 7A BF 9A 00079 MOVZBL #122, =(SP) 
6 g FB 0070 CALLS 2, SBGSMAKE _SKELETON_DESC 
04 ar DO 00080 MOVL RO, TEMP ESE 
03 A 03 Ad 90 0084 MOVE 3(R3), 3TRO) 
06 AO 06 =A 80 089 MOVW (R3). (RO) 
08 A 08 A300 0008 MOVL (R3), B(RO) 
3 Cc OA 3 09 MOV g (ROS RS 
4 D 9 MOVL 5, SUBVECTOR 
64 2 DO 0009A MOVL COUNT, (SUBVECTOR) 
1 D4 00090 CLRL | 
4 11 0009F BRB 4 
6441 DO 000A1 4$: MOVL (PTR)+, (SUBVECTOR)CIJ 
F8 51 F AS 5$: AOBLEQ COUNT 1, 4$ 
18 AO D a9 MOVL 5, 24(R6) 
0c BC D AD 68: MOVL RO. @DESC2 
1p 11 00081 BRB ; 
0c A3 DD 00083 7$: PUSHL (R3) 
000000006 09 gi FB Bé CALLS #1, BGSSTA_SYM_1S_LITERAL 
1 0 € BD BLBC =—._-aRO 
0c AC dD 000C PUSHL DESC 


it xP 


3; Routine Size: 


358 bytes, 


000000006 


000000006 


—=>_— os 
ao O@n 


06 


000000006 


20 
18 
oc 


7E 
00 


VSS VPrruvirO~ 


ofo 


1$- 

14- 
7A 9A C3 

$F i 
4 i : 

4 DO D 

7A F fe > 
j Dd Of 

04 =A 4 OOE 
BE 
8 BBs 
$5 Eb Si 
04 +4 o103 
ae: 
oe Bais 
BF ssi 
0 D B51 1 
oH Be 
08 AC D1 OO12A 
aos Be i: 
01080004 8F D0 004 

a Te? 3 Bat D 
00000000 fr a Size 
00028362 Be 43 a9147 
18 A2 70 80154 

20 ne 43 00159 

52 D OOt69 

01 00 0016 

04 0016 


Routine Base: DBGSCODE + 0568 


b_Ie 
sep! 
Sep-1 


sooo 
PAM 


10$: 


> 
— 
wn 
ee 


128: 


138: 


148: 


98 12:18 


19 AX-11 BL Ai ggeze V4.0-74 
DEBUG. SRC JDBGADDEXP.B32;1 


#122, -(SP) 
g, DBGSPRIM_TO_VAL 


(SP) 
BGSMAKE SKELETON_DESC 
EMP best 
P_DEST, R 
( 
( 


TYPE, #8 

2$ 

1539, 6(R2) 
175 7301508, (R4) 


$ 
AAA 
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3 38 ! f } ROUTINE DETERMINE_TYPE (ARG, NEW_ARG, TYPE) : NOVALUE = 

: 944 1074 1 | FUNCTION 

> 945 1075 1! 

3 ok 1076 1! iven a pointer to a descriptor, this routine does two things: 

; 94 1077 1! = Determines which of the address ty es the descriptor represents 

; 948 1078 1! ~° if necessary, calls CONV_TEXT_VALUE and returns a converted arg 

: 949 1079 1! n NEW_ARG. 

; 950 1080 1! 

; «951 Hit 1 ! INPUTS 
g 926 1 S¢ 1! 
:; 95 + 1! ARG - Points to either a oy inery Descriptor or a Value Descriptor 
: 9546 1 1! or a Volatile Value Descriptor 
; 955 1085 1! NEW_ARG = The address in which to leave a pointer to the converted 

3 228 1986 1! descriptor. 

3 ret 4 HH : : TYPE - The address in which to leave a type code 

; 959 1089 1 ! OUTPUTS 

; 960 1090 1! 
; 961 1091 1! In TYPE, returns one of the five expe codes ADDRSK_LITERAL, ADDRSK_INST, 
; 96¢ 1098 1! ADDRSK_DATA, ADDRSK_BITFIELD, ADDRSK_PRIMARY, saying what kind of 
3 st 1987 ; address the descriptor represents. 
; 965 1095 1! In NEW_ARG, returns the address of the original argument if no conversion 
; 966 1096 1! was done on the descriptor. Otherwise, returns the address of the 

3; 967 1097 1! new descriptor. 

3; 968 1098 1! 

; 969 1099 BEGIN 
; 970 1100 
3; 971 1101 MAP 

: 97 1136 ARG : REF DBGSVALDESC; 

; 9? 110 | 
3 974 1104 LOCAL 

: 975 1105 DTYPE, ! Holds a dtype code | 
3 376 1108 NAME: REF VECTORC,BYTE), ' Holds name of a pr inary 

3 A 8 14 SYMID; ! Pointer to a SYMID | 
3 44 1199 : Turn value descriptors into volatile value descriptors. | 
3; «981 1111 IF .ARG CDBG$B_DHDR_TYPE] EQL DBGS$K_VALUE_DESC 

; 98 BE THE 
3 4 bE BEGIN | 
: OBS 1115 ! Check for ‘‘unconverted"’ value descriptors as input. These arise from 
; 26 1338 : constants, £9 on EXAMINE 1 we get a value descriptor with 

: 98 111 i the string "i000". 

; 988 1118 ‘ 

: 989 1119 IF .ARG CDBG$SV_DHDR_UNCVT) 

; 990 1120 

: 991 1121 4 BEGIN 

; 99 11 ; 4 

: 99 11 4 ' Check for the correct dtype. 

: 994 1124 4 ! 

: 995 1125 4 SELECTONE .ARG CDBGSB_VALUE_DTYPE) OF 

3 238 11 $ 4 T 

; 99 11 4 DSCS$K_DTYPE TE 

; 998 1128 4 ARG = DBGSCONV_TEXT_VALUE (.ARG, .ARG, 0); 


| 10 | 

xP 18-Se 1984 23:49: AX-11 Bliss-32 V4.0-74 P 0 

von 1a-88b-198e F3itec39 — EoteuG. Shcloscnobene.043;1 aoe 70) 

! The number scanner may ones up the constant as pack decimal 
np * and 


! for some languages, take ack decimal with no '.' a 
! treat it as long. 


i] 
! 
' 
! 
CDSC$K_DTYPE_P): 


IF NOT CHSFIND_CH(.ARG [DBG$W_VALUE_LENGTH] 
ARG CDBGSLVALUE-POINTERS, %C'.") 


BEGIN 

ARG [DBGSB_VALUE_DTYPE] = DSCSK_DTYPE_L; 

ARG LDBGS$W°VALUE TOKENCODE] = TOKENSK- INTEGER; 
ons = DBGSCONV_TEXT_VALUE (.ARG, .ARG, 0); 


c 
ARG COBGSL_VALUE. POINTER); 
END; 


COTHERWISE): 
SIGNAL (DBGS_ILLADDCON, 2, .ARG CDBG$W_VALUE_LENGTH), 
ions ARG COBGSL_VALUE_POINTERJ); 


Fill in correct dtype and length information. 


| 

ARG CDBGS$V_DHDR_LITERAL) = TRUE; | 

ARG COBGSV“DHDR-OVERRIDE) = TRUE; 

ARG “VALUE_CLASS) = 0; 

ARG CDBGSB-VALUE-DTYPE] = .OBGSGL_DFLTTYP; | 
| 
| 


| 
ELSE 
SIGNAL (OBGS_ILLAROCON, 2... ARG [DRGSW_VALUE_LENGTH], 
| 


IF .DBGSGL-DFLTTYP EQL DSCSK_DTYPE_Z1 


N 
ARGCDBGS$W_VALUE LENGTH) = 
DBGSIRS DECODE(. . ARGEDBGSL VALUE_POINTER], 


FAL 
. -ARGCDBGSL_VALUE_POINTER] 
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3$ ELS 

3 on ARG CDBG$W_VALUE_LENGTH] = .DBG$GW_DFLTLENG; 

040 . 
041 Make the value descriptor into a volatile value descriptor. 
$08 ARG [DBG$B_DHDR_TYPE) = BaGSk V_VALUE_DESC; 

044 ARG COBGS$L- VALUE POINTER) = .ARG COBGSL_VALUE_VALUEO); 
045 IF .ARG COBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_V 
046 OR .ARG [DBGSB-VALUE-DTYPE) EQL DSCSK"DTYPE-Sv 
04 OR .ARG [CDBGS$B-VALUE-DTYPE) EQL DSCS$K"DTYPE-vuU 
oe ARG DBGSB-VALUE-DTYPE] EQL DSCSK-DTYPE-SvU 
050 = ARG COBGSL_VALUE_POS) = .ARG CDBGS$L_VALUE_VALUE1); 

5 | 

Gee Case on the kind of descriptor. 


18-5 
14*$ 


ono— 


eens 
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3 3 $ 11 § SELECTONE .ARGCDBGSB_DHDR_TYPE] OF 

; ; 1 SET 

. He 4 5 | Primary Descriptors. 

: 1061 1191 CDBGSK_PRIMARY_DESC) : 

3 ¢ 1138 BEGIN 

3; 1 119 

: 1066 1194 ! Check for Primary representing a Literal. 

3; 1065 1195 : Exenele: In PASCAL, 

3: 1066 1198 ! CONS 

3 per 119 ! X= $1¢: 

3; 1068 1198 ! Y=1.1; 

3 1962 1199 ! 

3; 1070 1200 ! On EXAMINE X, we will construct a Value Descriptor with 512 in 
s 1Or) : 4 the value field. On EXAMINE Y, we will signal an error. 
; 1998 1 $8 if DBGSSTA_SYM_IS_LITERAL (.ARG COBGSL_DHDR_SYMIDO]) 

3 1074 1204 THEN 

; 1075 1205 4 BEGIN 

3 1o7e 1206 4 

3; 107 1207 4 ' Save the symid 

3; 1078 1208 4 ' 

3 1079 09 4 SYMID = .ARG CDBGSL_DHDR_SYMIDO]; 

: 1 ! 1} ¢ Convert the Primary into a Value Descriptor and obtain the dtype. 
; 1083 1518 4 DBGSPRIM_TO_VAL (.ARG, DBG$K_VALUE_DESC, ARG); 

3 ORE 1315 2 DTYPE = ~ARGCOBG$B_VALUE_DTYPEJ; 

: 1086 1216 4 ! Check for integer dtype. These are the only kinds of 
8 + $4 44 ? literals we can do address arithmetic on. 

: 1089 1318 4 if .DTYPE NEQ DSCSK_DTYPE_2 

; 1090 1220 4 AND .DTYPE NEQ DSCSK-DTYPE-L 

3; 1091 1221 4 AND .DTYPE NEQ DSCSK_DTYPE_LU 

3 1996 1 $$ 4 AND .DTYPE NEQ DSCSK_DTYPE_W 

3: 109 1223 4 AND .DTYPE NEQ DSCSK_DTYPE_wWU 

3 1094 1224 4 AND .DTYPE NEQ DSCSK-DTYPE~ 

3; 1095 1225 4 AND .DTYPE NEQ DSCSK_DTYPE_BU 

3 1098 1226 4 THEN 

| oe 

: 1099 1229 ' Call the routine that turns a symid into a name, in order 
3 Viet : to be able to signal the error. 

; 1108 1 é DBGSSTA_SYMNAME (.SYMID, NAME); 

: 110 1 SIGNAL TDBG$_ILLADDCON, 2, »NAMECO), NAMEC1)); 
me BB « 

: 1138 ! § ? Make the value descriptor into a volatile value descriptor. 
3 1108 1 38 4 ARG FDBG$B_DHOR TYPE] = pacsk V_VALUE_DESC; 

3; 1109 1 4 ARG CDOBGSL-VALUE_POINTER] = .ARG EDBGSL VALUE_VALUEO]; 
: ai? ! 7 ? ve COBG$B_VALUE_CLASS] EQL DSC$K_CCASS_UBS 

: 1112 1242 4 ARG CDBG$L_VALUE_POS] = .ARG CDBGS$L_VALUE_VALUE1); 


Page 31. 
¥° 6a) | 


| 


11 ey 
oes” VERT ERNE WGN, Oe 
} Put in the flag for Literal. 
ARG CDBGSV_DHDR_ LITERAL] = TRUE; 
.TYPE = ADBRSK_CITERAL; 
END 
ELSE | 
The value is not a literal. Set the type code to Primary 
-TYPE = ADDRSK_PRIMARY; 
END; 
Volatile Value Descriptors. 


CDBGSK_V_VALUE_DESC) : 
BEGIN 


! If the descriptor came from a Literal constant, fill in 
dtype of Literal. 


IF .ARG CDBG$V_DHDR_LITERAL] 
THEN 


— a b+ 5 9 > 


WN “OC OCDNAOUES WN "OO OODNOULSW 


For non-bitfield types, make sure the POS field is zero. 
if ..TYPE NEQ ADDRSK_BITFIELD 


5 

? 5 
38 68 .TYPE = ADDRSK_LITERAL 
re 4 } Else look at the dtype field. 
4@ rg SE 
4 7 SELECTONE .ARG COBG$B_VALUE_DTYPE) OF 
re; rg ~ 
46 76 CDSCSK_DTYPE_Z1, DSCSK_DTYPE_ZEM) : 
4 A BEGIN 
49 79 ! Change type from entry mask to instruction if 
30 HY any operations are to be performed. | 
3¢ 8¢ ARG CDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_21; 
5 8 .TYPE = ADDRSK_INST; 
54 84 END; | 
5 CDSCS$K_DTYPE_VU, DSC$K_DTYPE_V 
A] Hy DSCS$K~DTYPE-SVU, DSCSR_DTYPE_Sv) : 
38 38 .TYPE = ADDRSK_BITFIELD; 
60 90 COTHERWISE) : 
61 1 .TYPE = ADDRSK_DATA; 
8 j TES; 
64 4 
65 
8 


OOOO O00O 
el 
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ARG CDBG$L_VALUE_POS] = 0; 
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3 3 
3 7 
2 | 
| 
33 
3 7 
3 1 
| 
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37 
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3) 
3 7 
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5C 
20 


-Sep-1 DEBUG. SRC JDBGADDEXP.B 


i END; 
08 } We do not expect any other kind of descriptor. 
5 COTHERWISE] : 
DBG_ERROR ("DBGADDEXP\DETERMINE_TYPE unknown arg type’); 
$8 TES; 
1? } Fill in the output parameter and return. 
\g .NEW_ARG = .ARG; 
\> RETURN; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


50 58 45 44 44 41 47 42 44 29 00029 P.AAB: . ASCII \)DBGADDEXP\<92>\DETERMINE_TYPE unknown \ ; 
45 50 59 54 SF 45 4E 49 4D $3 00038 > ; 
20 6 77 6F 00047 : 
65 70 79 74 20 67 72 61 00048 ASCII \arg type\ 3 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
001C 00000 DETERMINE TYPE: 
.@ORD Save R2,R3,R4 F 
54 000000006 00 9 90002 MOV LIBSSIGNAL, R4 : 
5E 04 C2 00009 SUBL 4, SP : 
52 04 AC DO 0000C MOVL ARG, R2 : 
7A soaBEF 02 Ag 91 90010 CMPB = s«2 (RO), #122 : 
03 13 00015 BEQL =s«s1$ : 
QOAD 31 00017 BRW 9$ F 
7D 046 A2 05 Fl OO1A 1$: BBC #5, 4(R2), 7$ : 
50 16 a2 A OOO1F MOVZBL 22(R2), RO : 
08 50 91 00023 PBséRRO, #8 : 
1A 13 000 6 BEQL © 3$ F 
15 50 91 000 MPB=seaRO, #21 ; 
28 12 00028 BNEQ 4$ : 
18 B2 16 A2 - 3A 99 LOCC #46, 20(R2), a@24(R2) ; 
2 BNEQ 2s 3 
51 04 $ CLRL R1 3 
1 51 2$ BLBS = «RI, 4$ ; 
16 OA 8 O3A MOVB #8, 22 (R2) ; 
10 A 4 B0 000 ; MOVW #4. 16(R2) ; 
D4 00042 3$ CLRL 0s = ( §P) ; 
52 DD 00044 PUSHL R : 
52 «(DD 46 PUSHL R : 
000000006 00 g F 904 CALLS #3, DBGSCONV_TEXT_VALUE ; 
4 Ac ; p O04F HOVE RO. ARG : 
18 «OA po 0035 4$ PUSHL 36«n2) : 
7E 14 Ad 3C 000 MOVZWL 20(R2), -(SP) ; 


11 
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1 
GADDE XP bese =1984 23:49: AX-11 Bliss-32 V4.0-74 Page 34 
ope 122808= 1382 $3: 93: 48 DEBUG. SRC JDBGADDEXP.B32;1 . Bs 
2 DD ¢ PUSHL : 
00028EF a a DD 2 PUSHL #167672 : 
$4 ®, CALLS #4, LIBSSIGNAL ; 
046 AC p 5$: MOVL + 1157. 
06 =A C0 F BIS82 #1 ; 4(R2) : 1158 
50 000000606 p HOVE DBG g DFLTTYP, RO t 1160. 
1 A : 7 MOVZBW RO, 2etR2) : 
16 D 7B CMPL ; + 1161) 
14 12 0007 BNEG : 
7E 7C 000 CLRQ =(SP) + 1164) 
18 : DD 000 PUSHL  @24(R2) : 
000000006 99 Fe 96 CALLS # DEGSINS _DECODE : 
2 18 As 8¢ suBW 4 4(R2), RO? 20(R2) : 116 
14 A 000000006 00 $0 0094 $ novu DBG$GW_DFLTLENG, 20(R2) : 116 
02 AO 3 BF 8 G0K5 MOVE #-125, 2(RO) : 
1 AO 20 AO DO OOOA MOVL g (ROS, 24(RO) + 117 
01 16 AO 91 OOOAA CMPB (RO), #1 : 117 
12 13 OOAE BEQL $ : 
29 16 AO 91 0008 CMPB 2(RO), #41 : 117 
OC 13 000B4 BEQL : 
22 16 AO 91 00086 CMPB 2(RO), #34 : 117 
06 13 000A BEQL : 
2A 16 AO 91 000BC CMPB 2(RO), #42 : 117 
0 12 000C0 BNEQ $ : 
1¢ AO 24 Ad D 900¢¢ 8$: MOVL  36(RO), 28(RO) : 118 
52 04 AC DO 000C7 9S: MOVL ARG, RO : 118 
79 «BF 02 a2 91 000CB CMPB 3 s«a2 (RD), #121 : 119 
03 13 00000 BEQL 10$ : 
008) 3) 90008 BRW 14$ : 
0c A2 0D 9000 10$: PUSHL 12(R2) : 1203 
000000006 00 1 FB 0008 CALLS #1, DBGSSTA_SYM_IS_LITERAL F 
7A 0 €9 000DF BLBC RO 13$ : 
Oc A2 b0 000E¢ MOVL 12(R2), SYMID : 1209 
04 AC 99F O00E6 PUSHAB ARG + 1213 
7E 7A BF 9A O00E9 MOVZBL #122, -(SP) : 
3¢ DD O00ED PUSHL Re : 
000000006 00 0 FB OOEF CALLS #3, DBGSPRIM_TO_VAL ; 
5 046 ac p O00F6 MOVL ARG, R + 1214 
16 A2 9A OOOFA MOVZBL 22(R2), DTYPE ; 
C 13 O00F BEQL 118 : 1219) 
08 J D1 001 CMPL DTYPE, #8 : 1220 | 
13 001 BEQL §=-:«w1'1$ F | 
04 4 1 CMPL DTYPE, #4 > 1221 | 
13 00108 BEQL «=:«1'18 : 
07 D1 1 A CMPL  DTYPE, #7 > 1222 | 
p 13 001 BEQL ‘118 ; 
03 D1 0010F CMPL  DTYPE, #3 : 1223) 
13 00112 BEQL §=-*118 F 
06 D4 114 CMPL DIYPE, "6 > 1224 
: 3 00117 BEQL 1$ ; | 
02 o4 o119 CMPL DTYPE, #2 > 1225 
iE 11¢ BEQL 118 ; 
4008 8F 6B 0011 PUSHR #*M<R3,SP> : 1232. 
000000006 00 ? Fe 1 CALL a2. DBGSSTA_SYMNAME : 
7E 6£ C1 001 ADDL3 #1, NAME, -TSP) : 1233, 


pas xP 15500-1984 ; 49:16 AX-11 Oh geez V4.0-74 Page (d 


14-Sep-1 DEBUG. SRC JDBGADDEXP.B32; 1 
7E 04 5 9A 00120 MOVZBL @NAME, =(SP) ; 
DD 001 PUSHL &# : 
O0028EF8 BF DD 001 PUSHL #167672 : | 
64 4 FB 001 CALLS #4 5 18$S 1GNAL : | 
93 A F 13¢ 118:  MOVB #125, 2(R2) : 1238. 
1 A A p 141 MOVL (Res 24 (R2) : 1239. 
0D A 146 CMPB (RO), #1 + 1240) 
05 12 OO14A BNEQ : 
1c OA 26 =O p lec MOVL 6(R2), 8(R2) + 1242) 
.“e 40 af 151 12%: BISB2 #64, 4(R2) : 1 46 
Pl 1 00 00156 MOVL #1, @TYPE + 1267 | 
6A 11 0015A BRB 218 :1 95 | 
oc «BC 2 00 0015¢ 138: MOVL #2, aTYPE t 1254 | 
64 11 001 BRB 1§ : 1186, 
83 «BF 02 A2 91 00162 148:  CMPB (R2), #131 + 126 
4C le 016 BNEQ 0$ ; 
06 04 A2 6 €£ 0169 BBC #6, 4(R2), 15$ + 1266 
0c BC 1 00 3 MOVL #1. aTYPE + 1268 
11 001 BRB 19$ ; | 
50 16 A2 9A 00174 15$:  MOVZBL 22(R2) RO > 1273 
16 50 91 00178 CMPB RO, #22 : 1276 | 
OF 1f 0017B BLSSU-16$ ; 
17 0 91 0017D CM RO, #23 : | 
OA 1A 90180 BGTRU 16$ ; 
16 A2 if 90 00182 MOVB #22, 22(R2) : 1282 
0c BC 03 00 00186 MOVL #3, aTYPE : 1283) 
if 11 0018A BRB 3$ : 1273 
01 50 91 0018C 16$:  CMPB RO, #1 : 1286) 
OF 13 O18F BEQL ; 
22 50 91 01 1 CMPB—séRO, «#34 : 
OA 13 00194 BEQL ; 
29 0 91 00196 CMPB sO, #41 : 
08 1F 00199 BLssu.-18$ ; 
2A 0 91 00198 CMPB RO #42 : 
06 1A 0019€ BGTRU 188 ; 
oc BC 05 D0 001A0 178:  MOVL #5, aTYPE : 1288 | 
04 11 001A4 BRB 19$ : 
oc BC 4 00 O1A6 18$:  MOVL #4, aTYPE : 1291 
05 OC BC D1 OO1AA 19$:  CMPL  aTYPE, #5 : 1 97 | 
16 13 OO1A BEQL ; 
1c A? ny 0018 CLRL 8(R2) > 1299 | 
11 11 001B BRB 1$ ; 1186 | 
00000000" EF 9F 00185 208 PUSHAB  P. 1306 | 
1 DD 0188 PUSHL : 
00028362 8F DD 180 PUSHL #164706 ; 
64 3 FB OOIC CALLS #3, LIBSSIGNAL ; | 
08 BC 04 AC B0 001C6 21$:  MOVL ARG, @NEW_ARG : 1312, 
4 001CB RET : 1314) 


; Routine Size: 460 bytes, Routine Base: DBGSCODE + 06D1 
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ROUTINE GET_DEREFERENCE (PRIMPTR) = 


i FUNCTION 
This routine is otheg, upon seeing the dereference operator 

in an address expression, when the operand is a primary. 

E.g.. ‘EXAM *PTR'' 


Ss 


MiFWN—OOONOUESWN—"OOOnNOu 


in Language C. 


ooo 
wn 


If the object being dereferenced is a ty 
this routine dereferences it by modifying the Primar 
Pesce iptor to refer to the pointed-to object. The value 


ped pointer then 


POPRIPIPONIAR) 


NODEPTR = .PRIMPTR CDBGSL_PRIM_ BLINK); 
NODEPTR CDBGS$V PNODE EVAL] = TRUE; 
TYPEID = .NODEPTR CDBGS$L_PNODE_TYPEID); 


3 3 1 1 

3 3 1 1 

iy 38 4 | 

; i 1 1 i 

3 1 1! 

; 1 1 1! 

3 7 1 1! 

We RET 

71 36 1 1 UE" is then returned indicating that the routine | 
; : 44 : } was successful. 

3 1199 1 1/ This routine is similar to the GET_DEREFERENCE routine 

: 1200 1 1] in DBGPARSER. | 
:1 03 i INPUT 
: 120 1 1! PRIMPTR - A pointer to the Primary Descriptor 

3 ; Be : ; } being dereferenced. 

> 1206 1 1 ' OUTPUTS 

3; 1207 1338 1! If the Primary represents a typed pointer, then 

g ; oS ; i ’ } it is modified and TRUE is returned. 

3 1210 1339 1 If the Primary does not represent a typed pointer then 

3 ; My 1? ' } it is not modified and FALSE is returned. 

J a 

: 15 136 PRIMPTR: REF DBGSPRIMARY; 

: 1217 1346 LOCAL | 
; 1218 134 FCODE, ' Local variable holding fcode info 
3; 1219 1348 JUNK ! Dummy output parameter 
3; 1220 1349 NODEPTR: REF DBGSPRIM_NODE, ! Points to a Primary Sub-node | 
3 \¢¢) 1329 TYPEID; ! Pointer to a RST type entry 
; 1558 135¢ 
3 \see : 37 : Check that the object being dereferenced is actually a pointer. | 
: 1386 : 2? if -PRIMPTRCDBGS$B_DHDR_FCODE] NEQ RSTSK_TYPE_TPTR 
> 1228 1389 RETURN FALSE; | 
we OR 

3 1231 1360 ! Obtain a pointer to the bottom level sub-node by following th 

31 ¢ 1361 ! back-pointer. Light the EVAL bit in this subnode, 

3 1 136 ! which indicates that pointer dereferencing is 

3 3 136 ! taking pretee : 

3; 1255 1364 ! Then, obtain the pointer to the RST type entry for the object 

: ; ’ 5 dereferenced. 

> 1238 1 

3; 1239 1 

3 3 1 

3 7 1 

3% 1 


ene 
No 


1 
4.3) -1984 23:49: AX-11 Bliss-32 V4.0-74 
122808- 1382 $3:3 : oi48 DEBUG. SRC JDBGADDEXP .83 
et the nted to. 


From this typeid, d for the object being 


? ee" + 
For porater variab 4 :. ~~ routine that extracts the typeid 


3 1 1 ! 
3} 137 ' 
3: 1245 1374 ! of the pointed-to ob 
3 } "4 : Ne Then obtain the feode. ies the typeid. 
; 124 1 8 DBGSSTA_TYP Bag TYP 1D. TYPEID); 
: 1246 1 4 FCODE = DBGSSTA YPEF CODE YPE 
; 1250 137 posseulle CRIRARY _SUBNODE ( *PRIBPTR: RSTSK_DATA, 0, .FCODE, .TYPEID, 0); 
: 1251 1 HY RETURN TROE; 
: 1252 1381 END; 
0004 00000 GET_DEREFERENCE: 
«WORD Save R2 
5 04 ce 0000 SUBL2 #4, SP 
5 06 =A 000 MOVL PRIMPTR, R2 
06 06 A2 91 00009 CMPB 6(R2), #6 
3 is 000D BNEQ 
50 18 #OA g i MOVL 24(R2), Lees thy 
OA AO 01 3 ot BISB2 #1, 10(NODEPTR) 
6E 0c AO D 001 VL 12(NODEPTR), TYPEID 
5E DD 00018 PUSHL SP 
04 AE 0D 00010 PUSHL TYPEID 
00000000G 00 02 FB 000 ! CALLS #2, DBGSSTA_TYP_TYPEDPTR 
6E DD 000 PUSHL 
000000006 00 1 FB 00029 CALLS #1, DBGSSTA_TYPEF CODE 
E 04 000 CLRL = SP 
04 A DD 000 PUSHL TYPEID 
5 oD O08 PUSHL FCODE 
7E 06 7D 00037 Ova #6, (SP) 
52 DD B88 A PUSHL R 
00000000G 00 06 FB 000 ¢ CALLS #6, DBGSBUILD_PRIMARY_SUBNODE 
50 01 D0 0004 MOVL #1, RO 
04 Bones RET 
50 D4 00047 1$: CLRL RO 
04 00049 RET 


3; Routine Size: 74 bytes, Routine Base: DBGSCODE + 089D 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


DBGSCODE 2279 NOVEC,NOWRT, RD, EXE, SHR, 


LCL, REL 
DBGSPLIT 83 NOVEC.NOWRT, RD. EXE, SHR, LCL 


PIC, ALIGN(O) 
REL, CON, PIC,ALIGN(O) 


>. 
3 
=z 

+ 


31 


Poor gt 


Library Statistics 


o----- -- Symbols 

File Total idaded 

~$355$DUA28: :(SYSLIBILIB.L32;1 18619 17 
DEBUG. OBJ JSTRUCDEF 32:1 

3 2 $DUA28 : (DEBUG. 0BJ JDBGLIB.L32;1 154 17 

“$255$DUA28: LDEBUG.OBJ JDSTRECRDS.L32;1 ae * 

$255$DUA28 : (DEBUG.0BJ JDBGMSG.L32;1 386 3 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:DBGADDEXP/0BJ=0BJ$:DBGADDEXP MSRC$:DBGADDEXP/UPDATE = (ENH$ : DBGADDE XP) 


i+ 2279 ss ae + 83 data bytes 
S Blapeed Tine: 09:41°5 


; Lines/CPU Min: 1738 
; pononne/ Pusha: 17509 


Used: 515 pages 


; Ho By Complete 


1b-3ep-1 
14- See 


Percent 


11 


25 
1 


Be f298:5% — Ebkeus. 


Pages Processing 
Mapped Time 
100 0:01.8 
3 00:00 
97 0:01.9 
1 00:00.4 
3 tts 3 
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